home *** CD-ROM | disk | FTP | other *** search
/ Manchester United on CD / Manchester United on CD.iso / advert.dxr / scripts_5_banner ad controler for advert section.ls < prev    next >
Encoding:
Text File  |  2000-08-30  |  1.3 KB  |  50 lines
  1. property psp_mysprite, pi_mydisplayloch, pi_myhideloch, pb_slideflag, pc_mylink, pi_nextbannertime, pi_bannerdisplaytime, pi_exith, pi_mytargetloch
  2. global gl_bannerlist, gl_bannerusedlist
  3.  
  4. on beginSprite me
  5.   psp_mysprite = sprite(me.spriteNum)
  6.   pi_mydisplayloch = psp_mysprite.bottom
  7.   pi_myhideloch = the stageBottom - the stageTop + 1500
  8.   hide(me)
  9. end
  10.  
  11. on initbannerad me, nextbanner
  12.   pb_slideflag = 1
  13.   hide(me)
  14.   pi_mytargetloch = pi_mydisplayloch
  15.   psp_mysprite.member = nextbanner.filmloopname
  16.   psp_mysprite.width = psp_mysprite.member.width
  17.   psp_mysprite.height = psp_mysprite.member.height
  18.   pc_mylink = nextbanner.linkID
  19.   pi_exith = pi_myhideloch
  20. end
  21.  
  22. on slideoutbannerad me
  23.   pb_slideflag = 1
  24.   pi_mytargetloch = pi_exith
  25. end
  26.  
  27. on hide me
  28.   psp_mysprite.locV = pi_myhideloch
  29. end
  30.  
  31. on exitFrame me
  32.   if pb_slideflag = 1 then
  33.     h = (psp_mysprite.bottom - pi_mytargetloch) / 2.0
  34.     psp_mysprite.locV = psp_mysprite.locV - h
  35.     if h <= 1 then
  36.       pb_slideflag = 0
  37.     end if
  38.   end if
  39. end
  40.  
  41. on mouseUp me
  42.   if (pc_mylink <> "na") and (pc_mylink <> EMPTY) then
  43.     gotoNetPage("http://www.goals-oncd.com/cdid.cfm?id=" & pc_mylink)
  44.   end if
  45. end
  46.  
  47. on getPropertyDescriptionList me
  48.   return [#myproperty: [#comment: "comment:", #format: #float, #range: [#min: 0, #max: 180], #default: 10]]
  49. end
  50.